﻿Imports System.IO

Public Class XtraReportBenh

    Private Sub XtraReportBenh_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles Me.BeforePrint
        'xử lý lấy hình từ database
        Dim byteBLOBData As [Byte]() = New [Byte]() {}
        byteBLOBData = DirectCast(Me.VLogoTableAdapter.GetData.Rows(0).Item(0), [Byte]())
        Dim stmBLOBData As New MemoryStream(byteBLOBData)
        'gán lại vô xrpicture để hiện hình ảnh
        Me.XrPictureBox1.Image = Image.FromStream(stmBLOBData)
        'Me.XrPictureBox1.Image = stmBLOBData.ToArray()
        'lấy dữ liệu từ db lên 
        Dim tendoanhnghiep As String = Me.VLogoTableAdapter.GetData().Rows(0).Item(1)
        Dim diachidoanhnghiep As String = Me.VLogoTableAdapter.GetData().Rows(0).Item(2)
        'gán lại giá trị cho parameter
        Me.Ten.Value = tendoanhnghiep
        Me.DiaChi.Value = diachidoanhnghiep
        'add vô report
        Me.Parameters.Add(Ten)
        Me.Parameters.Add(DiaChi)
    End Sub
End Class